home *** CD-ROM | disk | FTP | other *** search
/ PC Graphics Unleashed / PC Graphics Unleashed.iso / polyray / plydat / dat / texture / dnoise2.pi < prev    next >
Encoding:
Text File  |  1993-01-22  |  574 b   |  28 lines
  1. // Generic Polyray input File
  2. // Demonstrates a bumpy sphere by applying "dnoise" to the normal
  3. // Polyray input file: Alexander Enzmann
  4.  
  5. // Set up the camera
  6. viewpoint {
  7.    from <0,0,-8>
  8.    at <0,0,0>
  9.    up <0,1,0>
  10.    angle 45
  11.    resolution 256, 256
  12.    }
  13.  
  14. background pink
  15. light 0.8*white, <-10, 10, -20>
  16. light 0.8*white, < 10, 10, -20>
  17. include "../colors.inc"
  18.  
  19. define wrinkly_red
  20. texture {
  21.    special shiny {
  22.       color red
  23.       normal N + 3 * (dnoise(2*P, <2,0.8,3>) - <0.5, 0.5, 0.5>)
  24.       }
  25.    }
  26.  
  27. object { sphere <0, 0, 0>, 2 wrinkly_red }
  28.